1 POKE 53280,5:POKE 53281,11:PRINT"[147][155]"TAB(17)"NUMBERS"
2 PRINT"CREATIVE COMPUTING MORRISTOWN,NEW JERSEY"
3 A=RND(-TI)
4 PRINT"YOU HAVE 100 POINTS. BY GUESSING A"
5 PRINT"NUMBER FROM 1 TO 5, YOU CAN GAIN OR"
6 PRINT"LOSE POINTS DEPENDING ON HOW CLOSE YOU"
7 PRINT"GET TO A RANDOM NUMBER SELECTED BY THE  CPMPUTER"
9 PRINT"YOU OCCASIONALLY WILL GET A JACKPOT"
10 PRINT"THAT WILL DOUBLE(!)YOUR POINT COUNT"
11 PRINT"YOU WIN WHEN YOU GET 500 POINTS"
12 P=100
13 DEF FNR(X)=INT(5*RND(1)+1)
14 INPUT"GUESS A NUMBER FORM 1 TO 5";G
15 R=FNR(1)
16 S=FNR(1)
17 T=FNR(1)
18 U=FNR(1)
19 V=FNR(1)
20 IF G=R THEN 30
21 IF G=S THEN 40
22 IF G=T THEN 50
23 IF G=U THEN 60
24 IF G=V THEN 70
25 IF G>5 THEN 12
30 P=P-5
35 GOTO 80
40 P=P+5
45 GOTO 80
50 P=P+P
53 PRINT"YOU HIT THE JACKPOT!!!"
55 GOTO 80
60 P=P+1
65 GOTO 80
70 P=P-(P*.5)
80 IF P>500 THEN 90
81 IF P=<0 THEN 100
82 PRINT"YOU HAVE";P;"POINTS"
85 GOTO 14
90 PRINT"!!!!YOU WIN!!!! WITH";P;"POINTS"
93 PRINT"DO YOU WANT 'NOTHER GO???"
94 GET A$:IF A$="Y" THEN RUN
95 IF A$<>"N"THEN 94
96 GOTO 200
100 PRINT"SORRY! YOU LOST! I WIN (YAY!)"
105 GOTO 93
199 :
200 REM ** END **
210 FORT=1 TO 500:NEXT:LOAD"THE MAIN MENU/BM",8,1